home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS18.ADF / Logo / logo.2 < prev    next >
Text File  |  1989-01-27  |  309b  |  10 lines
  1. to poly1 :x :y :z fd :x lt :y poly1 :x+:z :y :z end
  2. to poly :x :y :z cs pd poly1 :x :y :z
  3. to demo 
  4.    print ['    Type in: ']
  5.    print ['         poly 3 145 3   ']
  6.    print ['to get the poly function. ']
  7.    print ['    Change the numbers and see what you get (especially']
  8.    print ['the middle one!)']  
  9. end
  10.